0 POKE53265,PEEK(53265)AND239
1 DIMW$(300):POKE53281,0:POKE53280,0:POKE650,128:
2 FORI=1TO15:POKE211,0:POKE214,I:SYS58640
3 PRINT"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 POKE211,0:POKE214,16:SYS58640:PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 GOTO10
7 POKE53265,PEEK(53265)OR 16:RETURN
10 FORR=1TO30:READA$:W$(R)=A$:NEXT
11 POKE211,0:POKE214,17:SYS58640:
12 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:U$="MAG"
13 PRINT"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
14 PRINT"[194][155]             [176][174][176][195] [176][195][195] [174]    [176]          [194]";
15 PRINT"[194]             [194][173][189]  [171][195]  [194] [176][174] [194]          [194]";
16 PRINT"[194][155]             [189]    [173][195][195] [173][195][189][173][195][189]          [194]";
17 PRINT"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
18 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:GOSUB7
20 X=0:Y=-1
21 FORI=1TO15:POKE211,1:POKE214,I:SYS58640:PRINT"[154]"W$(X+I):NEXT:GOTO22
22 GETA$:
23 IFA$=CHR$(13)THEN50
24 IF A$="."ANDX<30THENX=X+15:GOTO21
25 IF A$=","ANDX>0THENX=X-15:GOTO21
26 GOTO22
50 POKE828,0:PRINTCHR$(147)CHR$(17):PRINT"[144]LOAD"CHR$(34)"M1*"CHR$(34)",8"
51 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)"RUN"
52 POKE631,13:POKE632,13:POKE198,2
53 PRINTCHR$(19);:END
100 DATA"--------------------------------------"
101 DATA"                                      "
102 DATA"                                      "
103 DATA"                                      "
104 DATA"HEUTE WIRD VORGESTELLT:               "
105 DATA"                                      "
106 DATA"                                      "
107 DATA"                                      "
108 DATA"                          DIABLO [146]     "
109 DATA"                                      "
110 DATA"                                      "
111 DATA"                                      "
112 DATA"                                      "
113 DATA"                                      "
114 DATA"--------------------------------------"
115 DATA"[158]BUERG. NAME [154]SASCHA KLEMMSTEIN         "
116 DATA"                                      "
117 DATA"[158]GEBURTSTAG[154] 23. 11. 1977               "
118 DATA"                                      "
119 DATA"[158]GROESSE[154] 1920 MM                       "
120 DATA"                                      "
121 DATA"[158][211]-MOVIE[154] ALLE STAR TREK FILME          "
122 DATA"                                      "
123 DATA"[158][211]-SONG[154] 'SIEHST DU MICH IM LICHT'      "
124 DATA"                                      "
125 DATA"[158][211]-FOOD[154] ALLES MIT NUDELN UND KATZEN    "
126 DATA"                                      "
127 DATA"[158][211]-GAME AUF C64[154] FROGGER '93            "
128 DATA"                                      "
129 DATA"[158]LAST WORDS  ICH KRIEG EUCH ALLE !!! "
0